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This  REPORT  0  E  SC  RIDE?  THE  APPLICATION  OF  AN  60! TING  PROGRAM 
CAL  t  E  C  ‘EDITOR*  F  CP-  DOCu^EN  TATfUN  PURPOSE^.  THIS  PROGRAM  MAS 
WRITTEN  IN  FORTRAN  IV  LANGUAGE  FOR  THE  IBM-360/65  DIGITAL  COMPUTER 
BY  m*.  SIDNEY  KR  AVI  T l  <  MECHANICAL  ENGINEER  I  OF  THE  DATA  PROCESS¬ 
ING  SYSTEMS  OFFICE ,  °  I  CAT  INKY  ARSENAL.  IT  REQUIRES  A  TOTAL  MEMORY 
length  or  ?C,5»„>  BYTES.  THIS  REPORT  ENJOYS  THE  UNIQUF  DISTINCTION 
OF  HAVING  BEEN  PHYSICALLY  PREPARED  BY  THE  VERY  PROCESS  .1  DESCRIBES. 

This  program  is  presently  being  used  on  an  experimental  basis 
tg  evaluate  [TS  FEASIBILITY  for  arsenal  wide  distribution. 
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PRGGR,  W  DOCUMENTATION  CAN  BZ  AND  OFTEN  IS  A  IE0I0US*  ALBEIT 
NECESSARY.  TASK  UNDERTAKEN  AT  THE  COMPLETION  OF  DEVELOPING  A 
COMPUTER  PROGRAM  •EDITOR*  WAS  WRITTEN  TC  EXPEDITE  THIS  TASK* 

•EDITO*-  OFFERS  t  SOLUTIUN  TO  THE  SHORTAGE  OF  AVAILABLE 
TYP I S 1 5  AND  SECRETARIES.  IT  TAKES  ADVANTAGE  OF  THE  IBM-1403  HIGH 
SPEED  PRINTER  LOCATE!)  AT  ThC  PIdATINNY  COMPUTER  CENTER,  THUS 
ENABLING  THE  USER  TQ  HAVE  HIS  REPORTS  ‘TYPED*  BY  THE  COMPUTER . 

ALL  TEXT  EDITING  INSTRUCTIONS  JL i Nt  SPACING,  UNDERLINING,  CENTER¬ 
ING,  PAGE  NUMBERING.  ETC... I  ARE  PASSED  TO  THE  'EDITOR*  PROGRAM 
BY  MEANS  Ur  ALPHA  NUMERICAL  COOES  PUNCHED  IN  COLUMN  1  GF  THE  INPUT 
DATA  CARDS.  THE  DATA  CARDS  CONTAIN  THF  TEXT  OF  THE  REPORT,  HAVING 
BEEN  PUNCHED  FROM  FORTRAN  CODING  UPON  WHICH  THE  AUTHOR  HAS 

'WRITTEN'  HIS  REPORT. 

this  ppogra*  is  rathfr  SIMPLE  and  easy  to  use,  HOWE.'ER,  it  is 
FELT  THAT  BETTER  UNo^R STANDING  OF  THE  INDIVIDUAL  PROGRAM  CODES 
WILL  HE  ACHIEVED  BY  STUDYING  A'.TUAl  SAMPLES  AND  VARIATIONS  OF 
EACH,  THEREFORE,  THF  LATTER  PART  OF  THIS  REPORT  WILL  JNTAIN 
SAMPLES  OF  MOST  OF  THE  PROGRAM  CODES  AND  TH F J  R  EFFECTS  AS  WELL  AS 
AN  ILLUSTRATIVE  EXAMPLE  OF  PART  OF  THE  ACTUAL  CODED  DECK  USED  FOR 
THE  DOCUMENT  A I  I  ON  HE  THIS  REPORT. 
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[HIS  PROGRAM  WAS  DESIGNED  TO  ALLOW  rHE  PR  l  NT  £  n  :~*JTPUT  PAGES 
TO  FAL.i  WlUiIN  THE  COMMON  GOVERNMENT  STANDARD  (8  X  INCHFSI 

PAGE  SIZE.  PAGE  NUMBERING  IS  ACCOMPLISHED  AUTOMATICALLY  STARTING 
AFTcS  The  FIRST  PAGE,  SINCE  THIS  IS  OFTEN  THE  TITLE  PAGE.  ROMAN 

numeral  numbering  mat  be  imitated  at  the  option  of  the  user  up 

TO  A  MAXIMUM  of  XVII.  ARABIC  NUMERAL  NUMBERING  THEN  BEGiNS  AND 
CONTINUES  UNTIL  THE  END  OF  THIS  REPORT.  IF  DESIRED,  ADDITIONAL  RE¬ 
PORTS  CAN  IMMEDIATELY  FOLLOW,  SEPARATED  BY  THE  APPRQPTATE  LOGIC 

ClNTRGL  CARDS. 

NORMALLY  24  LINES  OF  PRINTED  INFORMATION  ARE  PRODUCED  PER  PAGE 
OF  OUTPUT  (DOUBLE  SPACING).  IF  PAGE  OVERFLOW  OCCURS,  ThE  INFCRMA- 
i ION  IS  CHUTINUEQ  ON  THE  NEXT  PAGE  WITH  THE  PROPER  PAGE  NUMBER 

S  t  0  IcNC  f  < 

I m  1  PkOGRAM  PRODUCES  OUTPUi  A  ONE  TO  ONE  BASIS,  TEAT  (S, 

,)\t  PUNCHED  CARD  OF  (  \f  UR  M  A  T  l  IN  PRODUCES  ONE  l  INF  OF  OUTPUT  INFOR¬ 
MATION.  ALL  PUNCHED  CARDS  PC  NuT  NrCFSSARI LY  R  ECU  l  RE  PROGRAM 
CODES  (IN  COLUMN  1)  ALL  THE  T I  Mt  ,  ONLY  WHEN  A  CERTAIN  OPERATION 
CAT  A  Cm  :  R  1  Z  l  f  ’  BY  CNF  Of  ThE  PROGRAM  COOES  IS  DESIRED,  SHOULD  IT 
A  F  P  t  A  R  *  3  I-  I  N  G  SUPPLIED  BY  THE  USER. 
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L2Q£i  tl&MJLCiij 

A  CENTER  C  UNDERLINE  THE  LINE 

C  CENTER  lUf  LINE 

F  LAST  l ' NE  ON  THE  LAST  PAGE  OF  THE  REPORT  ( A  NEW 

REPORT  WAV  BE  PLACED  IMMEDIATELY  AFTER  THIS  CARD ) 

L  LAST  LI NE  ON  A  PAGE 

S  SELECTIVE  UNDERLINING  -  UNDERSCORES  ONLY  I bUT  ALL  OF) 

THE  CHARACTERS  POUND  UN  T  i£  CARD. 

U  UNDERLINES  EVERYTHING  BFTWEtN  THE  LEFTMOST  CHARACTER 

AND  THE  RIGHTMOST  CHARACTER  OF  THE  LINE 

V  THE  F  I K  S "  •V  PLACES  ThF  PROGRAM  IN  THE  •V-MOr*'*, 

THE  SECOND  *V»  REMOVES  IT  FROM  THE  *V~MODE*.  THE 
TmIPD  »V  PLACES  THE  PROGRAM  BACK  1  NT  C  THE  ‘V-MODE* 

A  u  A  I N  ,  FTC..  WHfcN  IN  THE  V-MODE,  THE  PROGRAM  WILL 
LIST  ALL  3  J  COLUMNS  OF  CHARACTERS  AND  SINGLE  SPACE  ALL 
LINES.  au.  CODES  F-WND  IN  C  IL'JMN  i  ARE  DISREGARDED 
AS  COMMANDS  BUT  ARE  nevertheless  LISTED.  Thf  ONLY 
EXCEPTION  Til  THE  ROLE  I>  THE  'V'-COCE  ITSELF.  A  •  V  • 
WILL  NEVER  Mg  LISTED  IN  COLUMN  I  OF  The  LISTING 
WHETHER  IN  THE  *  '-MODE'  Ck  NOT.  HOWEVER,  PAGE  NUM¬ 
BERING  STILL  CONTINUES. 


PAGE 


DIGIT 


0  I  G  IT 


N 


ANY  ODD  DIGIT  BETWEEN  1  AND  9  WILL  CAUSE  THE  PROGRAM 
TO  SKIP  iQIGIT«-18  LINES  BEFORE  PRINTING  THE  INFORMA¬ 
TION  FOUND  ON  THAT  CARD. 

ANY  EVEN  DIGIT  AETwcFN  2  AND  10  WILL  CAUSE  THE  PR  U- 
GR  A w  T  1  SKIP  (DIGIT*!)  LINES  AFTER  PRINTING  THE  I N- 

F  f)  R  **  A  T I  l.  \  FOUND  ON  THAT  CARD. 

allows  single  spacing  (even  though  double  spacing 

NORMALLY  1C  CURS  -  IT  IS  OVERRIDEN  IN  THIS  CASE?. 
S^MaN  NUMERAL  NUMBERING  IS  NORMALLY  ( AUTQM AT  I  CALL Y  ) 

I N  T I  A  T  E  D  ay  THE  PROGRAM  r  A  R  T  I  N  G  WITH  THE  SFCONC 


PAGE 

OF  T  h  r 

REPORT.  * 

P 1  DENOTES  THE  LAST 

LINE  OF 

THE 

LAST  PA' 

; E  r JR  ROMA 

N  NUMERALS. 

IF  NO 

' R •  APPEARS 

T  M  F 

PROGRAM 

w  I  1.  L 

H  F  G  I  \ 

PAijE  1  AFTER 

P  AGE 

XVII.  A 

S  t  c  n 

NO  ' »  '  I 

i  N  r  H  - 

;  same 

REPORT  will 

BE  DIS 

R  tGAR  DEO 

r  y  r 

h  F  PROG* 

•  A  M . 

W  H  t  \ 

T  Hr  INPUT  0  A  T 

A  1 S  P 

RECEDED  BY 

A  N  ; 

R '  CODE 

,  PROGRAM  c 

ONTRUL  SKMS 

ROuAN 

NUMER  AL 

'  UMBERING  AND  f  M  P  L  0  Y  S  NUMERICAL  MIM BE  R l NG  ONLY,  a  C A  IN 
STARTING,  with  the  RFC '..NO  PAGE  OF  THE  REPORT. 


j  a  f'  r 

’  *4  \J  1. 


THE  FOLLOWING  ARE  $□*£  POINTERS  TO  REMEMBER  CONGER  JNG  THE 
USE  JF  'EDITOR'. 

1)  NOT  ALL  C  A 0  n  $  REQUIRE  A  PROGRAM  CODE. 

2  1  R c  UU I  RE  0  CCJES  A  R  c  7U  BE  PUNCHED  fM  COLUMN  1  ONLY. 

3!  A  «V»  IN  COLUMN  l  IS  NEVER  PRINTED  UN  THE  OUTPUT  LISTING 
REGARDLESS  Up  WHETHER  THE  PROGRAM  IS  IN  Tht  'V-MOOE*  f10  NOT 

<*)  ONE  PUNCHED  CARD  PRODUCES  ONE  LINE  JF  OUTPUT. 

5  S  ROMAN  NUMERAL  NUMBERING  CANNOT  EXCEED  XVII, 

t>  )  wITH  PROPER  USE  OF  THE  'DIGIT'  L  *  M  COL  ci  ANY  NUMBER  OF 
LINES  CAN  FOLLCw  OR  PRECEDt  A  LINE  OF  CUTPjT. 

7)  IF  T*-*E  ISER  PUNC.-iES  LIN-  INF  "wMaTICN  BETWEEN  CCHUMNS  7  TO 
72  INCLUSIVELY,  PROPER  PAGE  A L i  G  N u  t  N T  will  OCCUR.  WRITING 
p E  Y !.  NO  L  ,  L  t  IM\  77  C  U U L  0  N F  u  L S  N  I  I  A  f  B  T  H  c  NEED  FUR  Pm U  T  U  G  R  A  P  F  - 
R  E  U  !X  T  I  7N  IN  ..A  D  E  F  f  i’S  IT  f  •  F  A  i.  l  PIThIN  th;;  X  10-1/7 
Inch  L  i  w I  I  S. 

R  )  UNLESS  SPK!*:  ICO  VY  »  PROGRAM  C  T  06  ,  DOUBL  6  SPACING  NORMALLY 
DC  C  U«  S. 


r  M  b  t 


1.  CODE  -  **A 

CA*Ol 

3ESLLT J 

2,  CODE  -  *»C 

CAPO  » 

■EStLTi 

**.  CODE  '  **< 

C  AAO  5 

RE5UTJ 

A.  COOI  -  **l 

CAACt 

if  Still 


"  -  CSMEP  J  UKCEPIIPE 


'XA  CENTER  i  UKTIiHTrr~|xl7?LT 


UUUUO-  U  bC  i  Udhl^UULi 


••  -  CCMCPS  THE  UM 


ft” 


CSATfA  EXAAHE 


CSKTSP  I  *  A  AH. 


*  *  -  SELECTl  VI  UACfPlIMPG 


5  SELECTIVE  UAC!A»,iaIAG  fXAPPLf 


status  ufcciiiuiij;  mai 


♦*  -  iWfPtlhS 


f %  UOf*ll*l  CXIPHC 


.  COOF  -  *  *DI G!  1  *  *  -  KLTIPIE  SMCIF-S 
h I  ODn  NitfftER 
r ARDSs 


F  I  ML  CA»C 


ECCfcO  cnt 


FIRST  cm 


tJ 


_J 


RESULT: 


FIRST  cm 


(3+1)  OR  4  SPACES 


SFCCAt  CAP 
FIMl  CAPt 


n  J  EVEN  MU»BER 
CAROS: 


FIML  CARD 


S6C0&C  CAPC 


FIRST  C ARC 


”.FSILT: 


FIRST  C«RC 
SFCCFC  C  ARC 


FIM*  C  ARC 


V 

/ 


(4*1)  OR  S  SPACES 


RAGE  3 


9.  CODE  -  *'«••  -  1*51  PAGE  CF  PCMN  MINERALS 

CARO: 

RE5LLT: 

THE  PAGE  FOUOZfcG  BEGINS  PAGE  *U*e  ER  ING  W  TTH  I 

1C,  CODE  -  * '  L  *  *  -  AN  EXAMPLE  CF  THE  ‘t*  CCCE  f  LAST  LINE  ON 

PAGE  )  CAN  EE  FCUNC  IN  SECT  f CIS  «.C. 


i*£iUUJmAIl*£_£l411EiJES 

1.  THE  EuL LOWING  IS  THE  LISTING  OE  THE  TABLE  OF  CONTENTS  OF  THE 
ACTUAL  PROGRAM  COOED  DECK  USED  FOR  THE  DOCUMENTATION  OF  THIS  REPORT 
IT  WAS  LISTED  UNDER  THE  >V-MODE*. 


TABLE  OF  CONTENTS 


ScCT ioN 
I  c  abstract 
£.  I  ■ trupuc  t  mn 

3 »  utNERAl  DESCRIPTION 
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FLOw  CHART  OF  BASIC-  PROGRAM  LOGIC 
„  LISTING  u.  FORTRAN  IV  SOURCE  PROGRAM 

table  up  oisTRiBurr  in 


*.o,  hoivjouai  sample  cent  ilustcati cjns 

i,  C OUt  -  *fA"  -  CEN.uk  UNDERLINE 


A  CENTER  f.  UNDERLINE  EXAMPLE 


HESUi.  T  : 

COMTEK  C  IJF'OEPLR'F  EXAMPLi 


C 1 1 1 1 E  -  »  ' C  *  *  -  CENTEPS  The  L  i NF 


C  CENTER  EXAMPLE 


RESULT; 

Cca,-«  EXAMPLE 


.  ru'-'t  -  • ' s *  *  -  selective  unermunini, 


pe SUL r : 


Sf  Lf  f  T  !  VI  UNOCPUNINC,  ExAP»LF 


SrlrdiVE  UNDE  «  l  INI  Nl.  EXAMPLE 


r  <  -  't:  -  •*!»*»  -  UN  TE  «L  I  NE 


U  UNO*- PL  INF  t-XAMPLE 


RESULT: 


UNDERLINE  EXAMPLE 


4,H.  I  N  D I  V .  S A  M  Pl  t  CODE  UUJS.  f "  0  N  T .  ) 
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C-'-’R  -  '*0IGiTs*  -  MULT !  PLt  SPACING 
A)  Qf'l  MJMflPR 
CAPOS: 

HNAL  CARD 
3  SECOND  CARD 

FIRST  CARD 


SUIT: 


FIRST  CARD 
S ECONO  CARD 
PINAL  CARD 


HI  t  Vt  N  NU^BFR 
CARDS: 


4 


F INAL  CARD 
SECOND  CARO 
F  !  -  '  T  CARO 


SU1  T  : 

F  I  R  S  T  CARD 
SECOND  CARD 
FINAL  CARD 


1  R  ‘TV.  S  A  M  R L  t  C  00 r  I  I  L  I  S .  i  C  ONT .  I 


Til's,  _  t  *  v"  -  Vc  “  (ATilM  «00l 

i  ARPS: 

V 

S  f  NO  •  V’  NODI 
■*  J17C  IIP  //* 

A  <A.l  3  )Mf  PL  T  X  V 

v  h h;  I  n  *  v  •  wool 


I  Si"  T: 


-I,  COi't  -  •  *  F  *  •  -  LAST  LINE  It-  LAST  PAGE  U  F  wfcPCRT 


C  A  P  .'J : 


F  (llv  CATA  PRINTED  ,F  PRESENT) 


R  r  S  U  L  - 

«i!MTUU!;S  p  AG  !.  NUMBER  I  NG  SEQUENCE 
I N r  I V .  >  AMPLE  COP;  IlMS,  ir.ONT  > 


•}.  Cl  E  -  **  -  I  '.ST  PA',!.  ||F  n!MA>,  NI)M£PA!  S 


CAR  1 : 


^  SUL T  : 


(line  pata  r» j r  n r f if  ohf$ent» 


T  Ht  f  A“f  F^LLOwiN..  he  GINS  PAL.fc  Nl  I  w  A  I  R  IN  '*.  W  I  Tm  1 


10.  (.’>  -  *  '  L  '  *  -  AN  (AAM.’Lf  >f  Tnf  *  t  *  COPE  (  UST  LINE  ON 

pR-.r  j  an  o'  Fiji, no  in  sFCTlo\  4.c. 


'-■***•  •  ‘ 


BEGIN  *V*  MOOt 
2LZ  J06FP  L  TXY 
Bj,7cain  //* 

END  *V’  M('UE 


7.  COPE  -  **N"  -  NU  SKIP  -  SINGLF  SPACE 


NO  SKI P  EXAMPLE 
N  SINGLE  SPACE 


RE  SUL  T: 


SIN'.LE  SPACE 
Nil  SKIP  EXAMPLE 
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CHECK  FOR  REGULAR 
PROGRAM  CODES 


use  THE 
APPROPRIATE  FOLLOWING 
SUBROUTINES  REQUIRED 
By  PROGRAM 


> 


LJ 


sruNt 


(3T0T 

\ 

FLOW  CHART  OF  BASIC 


rncoci 

• - 1 - 


.OGI 


PAGE  17 


SUBROUTINE  SELECT 


SUBROUTINE  LIMIT 


SUBROUTINE  ULINE 


SUBROUTINE  CENTER 

CENTEnTlNC'S  " 

TNFOfWTION  FOfl 

OUTrUT  LISTING 
L - - - - - 

r-L 

nc  rum  j 

SUBROUTINE  SPLINE 

|  TAINT  BL3NK  LINE 
- ^ 

i 

_ i _ , 

!  INCREMENT  UNE 

COUNT 


ffCTUPW  1 


TflGE 


TOU5E  ^INTOI 
TO  MOVE  TO  TOP 
Of  MEW  W 


*:  #*>&?.*%>  •'W'S  ***#*? 


EDITOR  PROGRAM,  SECOND  VERSION,  SEPTEMBER  1^9 
DIMENSION  ALPHAS  60) ,&ETA(80) ,RG«AN(20) 

DATA  C/'C'/,  U/'U’/,  a/  1  A 1  / ,  XN/'NV,  «/♦«»/,  Xl/«l'/, 


i  PAGE/’ 3  A i 


Xl/*l*/,  X2/s2‘/,  X3/*3*/,  X*/,'W,  X  5  /  •  5  ’  /  ■ 


2  Xs/'ft'/,  X  7  /  ?  7  '  / 1  X  6  /  *  8  1  /  *  X9/»9' /.¥/*V«/»  SPACE/’ 
3 *  S / • S'  / 

2  0  L  M  AN  =  0 
I  A  =  0 
L  I NE  =  1 
l  R  O  M  A  H  =  0 
*R  i  T  E  (  6 , 6  > 

A  F3R*„T( *»*/;///) 

1  READS 5,2»£NO«SO) XC , S ALPHAS  I ) ,  !«1 ,79) 

2  FORMATS  80A1J 

3  F0» MATS 17X,79A1 ,/) 

<»  FORMATS  17X,79Alf 

iF'XC.EO.V:  I  A  =  I  A  •*- 1 

IW*IA/2 

IX  = 14-2*1* 

IFf IX.NE.il  GO  TO  15 
IF{  XC  .EQ.VJXC  *  SPACE 
BETAS  1  )  =  XC 
DO  22  1*1,79 
BETAS  S  *1  HAlPHAt  I  ! 

22  CONTI NUF 

HR  I  Tc  {  a »  23)  S3ETAS I> , !»1  ,80) 

2  3  FORMATS  1 7X , 60A 1 ' 

L I  N  E  =  L  l  ;  F  + 1 
00  TO  17 
13  L  S  < I P  *  0 

IF(XC.EJ.Xl)  l $K I p  =  l 
IMXC.EQ.X2)  L  SK  IP~2 
IF|XC.EQ*X3)  L SKIP *3 
IFixC.EQ.X4)  LSK !P*4 
I  F ( XC . EQ « X  6  !  L$KIP*5 
IFSXw.EQ.Xc)  l SK ! P  *6 
IFSXC.cQ.X7)  L  S  K  I P  *  7 
I  F { XC . £Q . X8 )  l SKT  P*0 
IFSXC.EQ.X9S  L  SK I P  *9 
LSKI w-LSKSP/2 
L  SK{R*LSKIP~2*LSKl  Q 
IF(L$<!fU9,9,10 
10  DO  ii  I* 1,1  SKIP 
CALL  SPLINESL INF ) 

IFCL1NE.EQ.50)  CALL  PAGENOC  LRCMAN»  UNE ) 


F/'F' 


PAGE  21 


,4  r*»*u**i&. 


H  CONTINUE 

9  IF?  XC.EQ.C  fCALL  L  I  HI  T  ?  AL  PH  A  ,NR  ,  NL.) 

IFi XC. EQ.UJCALL  L I  HI T ( ALPHA ,NR » NLi 
If ?  XC*EQ.A JCALL  LI  HI T( ALPHA , NR , NL) 

IF?  XC.EQ.C i CALL  CENTER i AL PHA, NR ,NL I 
!F{ XC .63. A ICALL  CENTER! ALPHA, NR ,NL > 

IF! XC.FO.A )CALl  LIMI  T!  ALPHA.NR.NL* 
IF(XC.EQ.UICALL  UL I NE I BE TA , NR , NL ) 

IF? XC. 60. A) CALL  UL I NE { R£ T A , NR .NL) 

l  f  f  XC.63.iJ>  GO  TO  6 

IF?  XC.EO.A }  GO  TO  6 

IF?  XC.E3.XN5  GO  TO  6 

IF(XC.EU.S)  CALL  SELECT? ALPHA. SETA) 

IF(XC.F3.S;  GO  TO  o 

b  wRI TE( 6,3) i ALPHA? I) » 1*1, 79) 

L INE*L INE+2 
GO  TO  12 

6  mRITE(6,4)!ALPHA(I) ,1*1,79) 

L INE*L lNE*i 

IP(XC.EQ.UIWRITE(6.7)!8ETA( II ,1*1,79} 
lF(XC.Eg.A)MRITE(6*7t(SE  4? II ,1*1.791 
IF(XC.EO.S)  WR I TE ( ft  »  7  !  CBETA(I).  1=1,79) 
IP<  XC.EQ.UJ  L INE  =L I Ne*l 
if(XC.EQ.A>  IINE  =  LINEH 
IP(XC.Eg.S)  L I NE  =  L I NE  +  l 

7  FORMAT? iH+,16X,79Alf /> 

12  JF?L$KIP.FC.OI  GO  TO  14 
IF«L$KWU3,2l,l? 

21  DO  14  I  - 1  ?  L  SK  f  P 
CALL  SPLINfc(LlNE) 

IFSLINE.EQ.50)  CALL  PAGENO ( LR OMAN, LINE) 

14  CONT INUE 

13  IFixC.E3.RI  GO  TO  16 
IFSXC.FO.FI  GO  TO  16 
IHXC.EQ.XDGO  TO  16 

17  IF? L INE. EO. 491  CALL  RPLINE(LINE) 

IF?LINE,£0.50$  CALL  PASENOiLROMAN, L I NE ) 
GU  TO  19 

16  I  F  i  L I Nt . EQ . 50 )  GO  TO  17 
'  NE«L  I NE  +  1 
DO  16  I  1  NE  » 49 

CALL  SPLINE1LINE) 

15  CONTINUE 
GU  TO  17 

19  IF(XC.EO.F)  GO  TO  20 
IFfLMAN.EO.l?  GO  TO  1 
IHXC.E'j.P)  LMAN-1 
IF?  XC . EO.R  )  LROMAN-18 
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GO  TO  1 
50  STOP 
END 


SUBROUTINE  SEL ECT ! ALPHA , BETAS 
OIMvNSION  ALPHA! SOS ,B£TA!80} 
data  rank/'  */,HANK/(_'/ 

DO  1  I  '  « 79 

IPs  ALPHA! * S.EO-RANKS  BETA! I  SHRANK 
IF! ALPHA!!  )  .NE.RANK)  SETA { I  i»KANK 
CONTINUE 
RETURN 

END 


SUBROUTINE  L I  MI T { ALPHA , NR , NLi 
DIMENSION  ALPHA { 801 
DATA  BLANK/'  •/ 

NL  =  0 
NR  *G 

DO  1  1*1,79 

I F ! RLANK»NE  a  ALPHA! I } } GO  TO  2 
1  CONTINUE 

3  RETURN 
?.  NL  *  I 

00  4  I  ~ i »  79 
J  =  80-  I 

IE! BLANK, N£. ALPHA! J»S  GO  TO  5 

4  CONTINUE 
GO  TO  3 

5  NR  *  J 

GO  TO  3 
END 
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SUBROUTINE  UL!NEfBETAvMft*Nil 
DIMENSION  MTA!  S#l 
DATA  SANK/ ?  »/ 

DATA  CRANK/1..*  / 

NRP*NR*l 

IF  f NLM.eQ.OIGO  TO  2 
00  I  1*1 t NtM 
SETA! I l*8ANK 

1  CONTINUE 

2  DO  3  I  =NL  ?  NR 
BETA {  l  >*CRANK 

3  CONTINUE 

IFiNRP.EQ.80)  GO  TO  A 
DO  5  I *NRP  *  79 
BETAi  I  I “BANK 
5  CONTINUE 

4  RETURN 
END 


SUBROUTINE  C E N TE R <  Al PH A , NR  » NL I 
DIMENSION  ALPHA! 801 » GAMMA  I  801 
aATA  TANK/*  •/ 

DO  8  1*1 1 79 
GAMMA! I )*ALPHA< I ) 

9  CONTINUE 
NA=NR-NL+1 
NBS! 7  9-NA I / 2 
NC--NB-NL 
I F ( NC ) 1 » ?  3 

2  RETURN 

3  J*  79"NC 

DO  6  I  *  1 « NC 
ALPHA!  I  ) =  7  ANK 
6  CONTINUE 
00  5  I*l,J 
NE*NC ♦ ! 

ALPHA! N£ ?* GAMMA ( I ) 

5  CONTINUE 
GO  TO  2 
1  NC  *-NC 
J*  79- NC 

no  a 
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N£*NC*f 

ALPHA! I )*GAMMA(N£} 
9  CONTINUE 
J*  J*1 

OC  10  I  *  J  ♦  79 
ALPHA ( 1 1 “ TANK 
10  CONTINUE 
GO  TO  2 
END 


SUBROUTINE  SPLINE1UNE) 
WRITE(6V1) 

1  FORMAT  < 1H  I 
L  IN6*LINF+1 
RETURN 
ENP 


SUBROUTINE  PAGENOI  LROMAN, LI NE ) 

DIMENSION  ROMANI  20  ) 
bATA  PAGE/ ' PAGE ' / 

DATA  ROMAN/1!  SMI  '."III  ',M»  '  .  *  V  ‘.'VI  »,’V*I  *, 

l  *  v  1 1 1  *  *  •  i  x  »,’x  *,'xi  ','xn  *,  •  x  1 1  is  'xiv  «,'xv  a,8xvi 

z  *  x  v :  i  *  / 

M  AN*  L ROMAN- 1 7 

1  FORMAT ( l HO  1 
IFILROMAN.EO.OI  GO  TO  5 
WRITE (6,1) 

IF ( tR OMAN. IT. 18) KR l T€ (6,2) PAGE, ROM  AN! LROMAN) 

2  FORMAT' SOX, A4, IX, A4) 

IF (LR0MAN.GE.18)  WR I TE ( 6 , 3 )  PAGE, MAN 

3  FORMAT (SOX, A4, 14) 

5  L ROMAN* LR0MAN+-1 

L  I N  E  *  i 
wR I T  E ! 6  ?  4  ) 

4  f-ORMAT  (  *  1*  /////) 

RETURN 

END 
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Technical  Memorandum  I87I 


10.  distribution  itatimint 

Statement  1:  Distribution  of  this  document  is  unlimited. 


1«  »rON»ORlN«  MILITARY  ACTIVITY 


This  report  describes  the  application  of  an  editing  program  called.  "EDITOR"  for 
documentation  purposes. 

This  program  was  written  in  FORTRAN  IV  Language  for  the  IBM  360/65  Digital 
Computer  and  requires  a  total  memory  length  of  2  ,58-?  Bytes, 

The  "EDIT®"  Pro  am  pernito  the  user  to  have  his  reports  "typed"  or.  an  IBM  140J 
highspeed  printer.  Ail  text  editing  instructions  (line  spacing,  underlining,  centering, 
page  numbering,  etc...)  are  passed  ,o  the  "EDITOR"  Program  by  means  of  Alpha 
Numerical  codes  punched  in  Column  1  of  the  input  data  cards.  The  data  cards  contain 
the  text  of  the  report,  having  been  punched  frcm  FORTRAN  coding  sheets  upon  which  the 
author  has  w written”  his  report. 


‘WA HRII  «*?•.  I  JAa  ;«  flNlCN  It 
V4lTt  ARMf 


'^CLASSIFIED 


ADt>&  ¥  ?? 


CONTENTS: 


1  EDITOR'  MODIFICATION 
Technical  Memorandum  #1871 
Modified:  31  March  196? 


(1)  "F'  Code  Description  -  Add  to  Section  U. 

"Code  Description  and  Application" 

(2)  Program  Listing  Replacement  - 

Replaces  old  TM  1871  Listing  of  Section  5-  B. 
"Listing  of  FORTRAN  Source  Program." 


WILLIAM  H.  BOLTE 
SEAD/DPSO  Bldg.  351 
Picatinny  Arsenal 
Ext.  3^63 


PROGRAM:  "EDITOR"  -  A  computer  program  ;'jt  documentation  purposes  (T.M.  l8Vxj 
MODIFIED :  31  *.  nch  1969 

MODIFICATION:  Added  "P"  Code 


PfJRPOr"  OF  CODE:  The  "P"  cods  allows  one  to  skip  a  certain  specified  number 
of  pages.  This  number  is  a  user  option. 

INSTRUCTIONS  FOR  :,P'  CODE  USAGE: 


Punch  the  letter  "P"  in  Column  1  of  the  card  to  be  used,  followed  by  an 
integer  number.  This  number  specifies  the  number  of  pages  to  be  skipper  and 
has  an  allowable  field  width  of  two  (2);  therefore,  each  data  item  must  be 
right  justified  in  its  fielu,  since  leading  and  trailing  blanks  are  treated 
as  zeros  (0's). 


NOTE:  Any  information  punched  after  column  three  (3)  is  ignored  and  hence 
not  printed  during  output. 

ILLUSTRATIVE  USE: 


CODE  -  "P"  -  Multiple  Page  Skip 


CARDS: 


RESULT: 


t  Printing  on  Card  #3 

CP  2 

| 

/L  End  of  this  page 

V 

END  OF  THIS  PAGE 
(Skips  two  (2)  pages) 

PRINTING  ON  CARD  #3 
Min  this  case  it  is  printed  cn  top 
of  third(  3rd)  page) 


CCMMENT : 


This  modification  sheet  is  to  be  used  in  accordance  with  the  Technical 
Memorandum  #1871.  Any  problems,  questions,  inquires  or  suggestions  regarding 
the  use  of  this  code  or  any  other  subject  matter  from  the  T.M,  1871  should 
be  directed  to  Mr.  William  H.  Bolte,  SEAD/DFSO,  Building  3^1,  Ext.  1663. 


C  'EDITOR*  PROGRAM  LISTING  REVISION  31  MAR  69 

C  REPLACES  TM*187i  PROGRAM  LISTING 


C  t.  0 1 T  Ok  PROGRAM,  FOURTH  VERSION,  MARCH  1969  •  P*  COOE  ADDED  A  50 

C  TM  =  1871  IS  STILL  TO  RE  USED  AS  REFERENCE  A  100 

DIMENSION  ALPHA! 80),  BETAI80J,  ROMANI20)  A  150 

DATA  C/'C ' /,U/'U •/ ,A / *A '/, XN/' N'/ ,R/ *R'/ ,XL/‘ L' /, P/' P' /. PAGE/ ‘PAGE  A  200 
A ' /, XI/' 1 •/, X2/'2 •/, Xi/'3 •/ ,X4/ *6'/ ,X5/' 5'/,X6/' 6* / ,X7/» 7' /,X6/'  8'/  A  2  50 
2* X9/'-'/,V/'V'/, SPACE/'  '/»F/'E'/»S/'S'/  A  300 

1  LMAN=  0  A  350 

l  A=  0  A  400 

L I NE  =  1  A  450 

LR OMAN=  0  A  500 

WRITE  (6,22)  A  55C 

2  REAU( 5*23»cND=28 )  XC . ( ALPHA(S) , I =1 ,79)  A  575 

IE  (  XC .EQ. V)  l  A  =  I A ♦ 1  A  600 

I W= I  A/2  A  650 

IX=IA~2*IW  A  700 

IF  (  IX.NL.lt  GO  TO  4  A  750 

IF  (XC.EO.V)  XC  =  SPAC  E  A  800 

BETA(|)  —  XC  A  850 

DO  3  1=1,79  A  900 

ReTA(  m>=4LPHA<  I  )  A  950 

3  CJNTINUE  A 1 000 

WRITE  (6,26)  ( RE  TA (  I  1*1=1,801  A1050 

L I NE  =  L I NE  +  1  A 1 100 

GO  TO  i 3  A  1 1 50 

4  L  SK  l F=  0  A1200 

IF  (XC.EJ.XI)  LSX I P  =  i  A1250 

IF  (XC.E0.X2)  LSKI  P  =2  A1300 

IF  (XC.E0.X3)  LSKIP=3  A1350 

IF  (XC.EU.X4)  L  SK I F  =4  A1400 

IF  (  XC.EQ.X5)  l  S  K I  P  =  5  A1450 

IF  (XC.E0.X6)  L  SK I P  =6  A 1 500 

IF  (  XC.E0.X7)  l  S K I E  =  7  A 1 550 

IE  (XC.EO.Xd)  L  S  K I ?  =  8  A1600 

IF  (XC.E0.X9)  L  SK I P  =  9  A1650 

LSKI0=L SKlP/2  A 1 700 

LSKIR  =  LSKIP-2*LSKI U  A  1 750 

IF  (LSKIR)  7,7,5  A1800 

5  DJ  6  1=1, L SKIP  A1850 


PAG!  21 


CALL  SPLINE  (LINE)  *1900 

IF  (LINL.E0.50)  CALL  PAGENO  ( L k OMA N , L I NE t  A1950 

6  CJNtlNUF  A2000 

7  IF  (XC.Fu.  )  CALL  L I  M  r  T  ( AL PHA , NR , NL )  A2050 

IF  (XC.El.U)  CALL  LIMIT  <  ALPHA, NR,  NL)  A2100 

IF  (XC.EO.A)  CALL  LIMIT  (ALPHA, NR, NLS  A2150 

IF  (XC.EO.C)  CALL  CENTER  ( A L PHA , NR , NL )  A2200 

IF  (XC.EO.A)  C/LL  CENTER  ( AL PHA ,NR , NL)  A2250 

IF  (XC.EO.A)  CALL  LIMIT  ( A L PH A , NR , NL )  A2300 

IF  (XC.EU.U)  CALL  IJLINt  (BETA, NR, NL)  A2350 

IF  (XC.EO.A)  CALL  ULINF  (BETA, NR, NL)  A2400 

IF  ( XC .EQ.UI  OH  TO  9  A2450 

IF  ( XC.EO.A)  GU  in  9  A2500 

IF  ( XC.EO. XNI  GO  TO  9  A2550 

IF  (XC.EO. S)  CALL  SELECT  (ALPHA,  OETA)  A260G 

!r  ( XC.EO. S)  GO  TO  a  A2650 

IF  (  XC  .60.  f  )  GO  TO  1  7  A2700 

WRITE  (6,24)  (ALPHA(I)  .1-1,79)  A2750 

l I  NE  =  L I NE  ♦  2  A  2  800 

GO  TO  9  A).  350 

9  «R I T  E  (6,25)  ( AL  PHA ( I)  ,  I =i  ,79 )  A2900 

1 1 NE  =  L l NF* l  A2950 

IF  (XC.EO. U)  WRITE  (o,27)  ( BE  TA  (  ( )  ,1=1,79)  A3000 

IF  (XC.t).A)  WRITE  (6,77|  (BE TA ( I) ,1=1,79)  A3050 

IF  (XC.50.S  WRITE  ( 6  ,  ?  7  I  ( BE TA (  I)  , ! =1 , 79 >  A3100 

IF  ( XC.EO. U*  L  l  NE  =L  I  NF  A3150 

IF  (XC.EO.A)  LINE=LINE+X  A3200 

If  (XC.EO. S)  L I NE  =L I NE ♦x  63250 

9  IF  (  LSKIP.E-O.O)  GO  TO  12  A3300 

IF  (LSKIR)  12,10,12  A3350 

10  u)  il  1  =  1  , L  SK  T  F  A3400 

call  SPLINF  (LINE)  A3450 

IF  (LINE.FU.50)  CALL  PAGENu  ( LR DMA N, L I NE )  A3500 

11  CONTINUE  A3550 

12  IF  ( XC.EO. R)  GU  TO  14  A3600 

IF  (XC.tU.F)  GO  TO  (4  A3650 

IF  (XC.EO. XL)  GO  TO  A3700 

1?  IF  (LINE. EU. 49)  CALL  SPLINE  (LINE)  A3750 

IF  (LlNF.Eu.50!  CALL  PAitNu  ( LROMA  N, LINE)  A3800 

Gi)  T  )  16  A  3950 

4  IF  ( l  INE.fcQ.50)  GU  in  U  A  3900 

I Nt  =  L I  NT ♦ 1  A  3950 

DU  15  I = I NF ,40  A4000 

CALL  SPLINE  (LINE)  A4050 

15  CONTINUE  A  41 00 

GJ  TO  5  3  A41.50 

\  6  IF  (XC.EU.F)  GiJ  TO  1  A 4200 

lr-  (L MAN. £0.5  )  GU  Ti)  ,  A4250 
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P  A  G  F 


IF  (XC.EU.R)  LMAN=1  A4300 

If  (XC.EQ.R)  LR0MAN=l  8  A4350 

GO  TO  2  A 4400 

17  AA=ALPHA(1)  A4450 

AB=ALPHA( ? )  A4500 

HA=0  A4550 

IF  (AA.fcQ.Xl)  MA=1  A4600 

IF  (AA.EQ.X2)  MA=2  A4650 

IF  UA.EQ.n3)  MA  =3  A4700 

IF  (AA.EQ.X4)  MA=4  A4750 

IF  (AA.EQ.X5I  MA  =  5  A4800 

IF  (AA.EQ.X6)  MA  =6  A4850 

IF  (AA.EQ.X7)  MA  =7  A4900 

IF  (AA.cQ.X8l  MA  =  8  A4950 

IF  (AA.EQ.X9)  MA  =  9  A5000 

Mft -  0  A  5050 

IF  (A6.EQ.X1)  M6=l  A5100 

IF  (AB.EQ.X2)  mb  =  2  A5150 

(F  (AB.EQ.X3)  M3=3  A  5200 

IF  (AB.EQ.X4)  M3  =4  A5250 

IF  (AB.E0.X5)  M3  =  5  A5300 

IF  (AB.EQ.X4)  MB  =  &  A  5350 

IF  (A6.EQ.X7)  MB  =7  A  5400 

IF  (A6.EU.X8)  M0=8  A5450 

IF  ( A b  . EU. X9 )  MB  =  5  A5500 

MC  =  10*MA«-MB  A  5550 

IF  ILINE.EU.1)  GO  TO  *9  A5600 

18  IF  (LINE.NE.50)  CALL  cpirwr  ,lINEI  A5650 

IF  (LINE.  NE.  50)  GO  T'J  13  A5700 

IF  (LINE. NE. 50)  CALL  PAGENO  ( LR OMA N, L I NE )  A5750 

15  DO  21  I=1,MC  A  5fc00 

00  2  0  J=>,'9  A 5850 

20  CALL  SPLINfc  (LINfc)  A5900 

CALL  PAGENU  (LROMAN, LINE )  A5950 

21  CONTINUE  A600C 

GO  Tfi  2  A 6050 

26  ST  IP  A 61 00 

C  A  61 50 

22  FORMAT  (  *1 •///// 1  A6200 

23  FORMAT  (B0A1I  A  6250 

24  FORMAT  (WX.79A1,/)  A6300 

25  FORMAT  (17X.79A1)  A6350 

26  FORMAT  (17X.B0AI)  A6400 

27  FORMAT  (1H+,16X,79AI ,/)  A6450 

t.  NO  4  6500- 
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SUBROUTINE  SELECT  (ALPHA, beta; 
DIMENSION  ALPHA! 80),  BETA(80I 
DATA  RANK/*  '.HANK/'-V 
DO  1  1=1,79 

If  ( ALPHA* I ). EJ. RANK)  8ETA( I )=RANK 
If  (  ALPHA(  I  )  .NE.RANK)  HE  T« i  I ) =H A  NK 
1  CONTINUE 
RETURN 
END 


e  50 
b  lor 

B  150 
8  200 
B  250 
B  300 
B  350 
B  400 
B  450- 


SuBKUUT I NE  LIMIT  I ALPH„,N« ,NL) 

C 

50 

DIMENSION  ALPHA! 60) 

c 

100 

DATA  BLANK/'  '/ 

c 

150 

NL  =0 

c 

200 

NR  =  0 

c 

250 

DO  1  1=1,75 

c 

300 

If  ( BLANK. NE.AlPHA(I) )  SO  TO  3 

c 

350 

1 

CUNT  I NUE 

c 

400 

2 

kE turn 

c 

450 

3 

NL  =  I 

c 

500 

DO  4  1=1, 7c 

c 

550 

J=  SO-I 

c 

600 

If  I 8LANK.NE. ALPHA* j) )  u0  TO  5 

c 

650 

4 

CONTINUE 

c 

700 

GU  TO  2 

c 

750 

5 

NR  =  J 

c 

800 

GO  TO  2 

c 

850 

END 

c 

ROO- 

SUBRlJUT  INE  JUNE  (  Bf  T A  ,  Nk , NL  ) 
DIMENSION  BETA! SOI 
DATA  RANK/’  •/ 

DATA  CRANK / 

NLM=NL-l 
NR  P  -  NR  ♦  1 

If  (  NLM.EO.O)  GU  T  1  2 
00  1  1=1, NLM 

oL  TA  (  I  )  =B  A  NK 
:  C  J"(  T  I  N  UE 

2  DO  3  I  =  NL  ,  NR 

8c  ?  A  ( I I *CR  A  Nk 


D  50 
0  100 
D  150 

r>  200 

0  250 
D  300 
0  3  50 
D  400 
D  450 
D  500 
D  *>50 
0  600 


P  A  Of  ?  4 


3  CONTINUE  0  650 

IF  (NRP.EQ.80!  GL‘  T3  5  0  700 

03  4  l=NRP,79  0  750 

BETA!  I  ) =  0ANK  0  800 

4  CONTINUE  0  850 

5  RETURN  D  600 

tNO  0  950 


SUBROUTINE  CENTER  ( A L PH  1 , NR , ML!  E  50 

Ui'*ENSIUN  ALPHA!  SO)  ,  G4BMAI80J  E  100 

DATA  TANK/'  '/  E  150 

DU  1  1  =  1,79  E  200 

GAMMA!  I  l-ALHHA! I  )  E  250 

1  CONTINUE  E  300 

NA  =  NH-Nl«-1  E  350 

Nri  =  (  79-NA ) /2  E  400 

NC=NB-NL  E  450 

IF  i NC)  6,2,3  E  500 

2  R c TURN  E  550 

3  J  =  7  9-  NC  E  600 

03  4  I = l , NC  E  650 

ALPHA!  I ) =  T  ANK  E  7  00 

4  CONTINUE  F  750 

Cl  5  1=1, J  f  800 

Nt  =  NC  *•  l  E  850 

ALPmA!  NE  )  =C,AMMA(  I  )  E  900 

5  CJi«i  1  NUf:  E  950 

GO  TO  2  El  000 

e,  NC  =  -  NC  El  050 

j  *  76— NC  E 1 1 00 

D 1  7  1=1,  J  E 1 1 50 

NE=NC+I  El  200 

ALPHA!  I )=OANMi(NE  I  F 1 2 50 

7  l.  TnTINUE  El  100 

J  =  J*i  E1350 

0  1  6  I  =  J  ,  79  1 1 400 

ALPHA!  I )  =  TANK  fc 1450 

8  i  JO  INtlE  FI  500 

G)  TO  ;  E1550 

E16O0- 


SJMRuutlNf  SPLINE  (LINE!  E  60 


P  A  H  r  2  6 


wRiTE  (6,1)  F  100 

L  I  NE  =  L I NE ♦  1  F  150 

E  TURN  F  200 

C  r  250 

1  FORMAT  ( IH  I  F  000 

tNO  F  350- 


S'JRR  CuT  1 NE  PAGtNJ  (  LRCMAN.UNfc!  G  50 

0  i  ME  N  S I  ON  R  0  M  A  N  (  2  0 )  G  100 

DATA  PAGE/ '  P  A  G  F ' /  G  150 

OATA  ROMAN/' I • , • I  I ' ,  ' I  1  I  * , *  I  V* , • V*  , • VI • , • VI  I • , • VIII' , •  IX*  , » X*  ,  '  XI '  G  200 

XI  I  '  ,  •  X I  I  I  •»  'XIV',  •  X  V  •  ,  *  X  V I  •  ,  '  X  V  I  1  *  /  G  250 

MAN=lRQ"4N-l 7  G  300 

IF  { LKUMAN.tu.OI  GO  TO  l  G  350 

WRITE  (6,21  G  400 

IF  ( lROMAN.L T. 18  I  «RITE  (6,3)  P AGE , ROM A N (L ROM  AN )  G  450 

IF  (  LR’JMAN.GE.18)  WRITE  (6,4)  PAuE  ,  MAN  G  500 

\  LROMAN^LROMANRi  G  550 

L I  ME  =  1  G  600 

„R ITE  (o,5)  G  650 

RETURN  G  700 

C  G  750 

2  FORMAT  (1HU)  G  000 

3  FORMAT  (50X,A4,1X,AV)  G  050 

4  FORMAT  ( 30X, A4 ,14)  G  900 

5  FORMAT  (  *7.  •/////)  C>  950 
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